home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 7 / 007.d81 / library adventur (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  253 lines
  1. 10 rem * * * * * * * * * * * * * * * *
  2. 20 rem *      library adventure      *
  3. 30 rem *             by              *
  4. 32 rem *         dawn burgoon        *
  5. 34 rem *  translated for commodore   *
  6. 36 rem *       by donna k. woody     *
  7. 50 rem * * * * * * * * * * * * * * * *
  8. 60 :
  9. 70 rem *** variables used           ***
  10. 80 rem ***   l$=location description
  11. 90 rem ***   c1$=choice 1
  12. 100 rem ***  c2$=choice 2
  13. 110 rem ***  r1$=response to choice 1
  14. 120 rem ***  r2$=response to choice 2
  15. 130 rem ***  a$=user response
  16. 150 rem ***  i=for/next loop variable
  17. 160 rem ***  j=counting loop variable
  18. 170 rem ***  k=counting loop variable
  19. 180 :
  20. 190 poke783,peek(783)and254:s=65520:poke53280,9:poke53281,7:printchr$(144)
  21. 200 printchr$(14):printchr$(8)
  22. 210 :
  23. 220 rem *** title                   ***
  24. 230 :
  25. 240 printchr$(147)
  26. 250 poke781,4:poke782,4:syss:print"[204] [201] [194] [210] [193] [210] [217]   [193] [196] [214] [197] [206] [212] [213] [210] [197]"
  27. 260 poke781,7:poke782,19:syss:print"by"
  28. 270 poke781,10:poke782,14:syss:print"[196]awn [194]urgoon"
  29. 280 poke781,12:poke782,15:syss:print"[193]pril 1984"
  30. 282 poke781,15:poke782,4:syss:print"[212]ranslated for the [195]ommodore by"
  31. 284 poke781,17:poke782,13:syss:print"[196]onna [203]. [215]oody"
  32. 440 :
  33. 450 rem *** user instructions       ***
  34. 460 :
  35. 470 poke781,22:poke782,3:syss:print"[215]ould you like instructions (y/n)? ";
  36. 490 poke198,0:wait198,1:geta$
  37. 500 ifa$="y"ora$="[217]"then520
  38. 505 ifa$="n"ora$="[206]"then 800
  39. 510 goto470
  40. 520 printchr$(147)
  41. 530 print"----------------------------------------"
  42. 540 printtab(7)"[145][201] [206] [211] [212] [210] [213] [195] [212] [201] [207] [206] [211]"
  43. 550 print"----------------------------------------"
  44. 560 print"     [217]our space ship has just landed on"
  45. 570 print:print"the strange and wondrous planet of"
  46. 580 print:print"[204]ibrarium.  [217]ou have volunteered to"
  47. 590 print:print"explore this planet and find out about"
  48. 600 print:print"its resources.  [217]ou can take with you"
  49. 610 print:print"a portable computer backpack which"
  50. 620 print:print"contains a database of information"
  51. 630 print:print"about the galaxy."
  52. 640 poke781,22:poke782,7:syss:print"[208]ress <[210][197][212][213][210][206]> to continue."
  53. 650 poke198,0:wait198,1:geta$:ifa$=chr$(13)thenprintchr$(147)
  54. 660 ifa$<>chr$(13)then640
  55. 670 print"[217]ou will have to use your knowledge of"
  56. 680 print:print"libraries in order to search the"
  57. 690 print:print"database.  [194]efore making a decision,"
  58. 700 print:print"you can consult a table of the"
  59. 710 print:print"'[196]ewey [196]ecimal [211]ystem' to help you"
  60. 720 print:print"decide which database to search for"
  61. 730 print:print"facts about the planet."
  62. 740 poke781,22:poke782,7:syss:print"[208]ress <[210][197][212][213][210][206]> to continue."
  63. 750 poke198,0:wait198,1:geta$:ifa$=chr$(13)thenprintchr$(147)
  64. 760 ifa$<>chr$(13)then740
  65. 770 :
  66. 780 rem *** display encounters     ***
  67. 790 :
  68. 800 printchr$(147)
  69. 810 fori=1to10
  70. 815 poke781,1:poke782,14:syss:print"[197]ncounter #"i
  71. 820 onigosub2000,2100,2200,2300,2400,2500,2600,2700,2800,2900
  72. 870 poke781,16:poke782,0:syss
  73. 875 print"[208]ress 1, 2, or [196] (to display the [196]ewey  [196]ecimal [211]ystem)"
  74. 880 :
  75. 890 rem *** accept user input       ***
  76. 900 :
  77. 910 poke198,0:wait198,1:geta$
  78. 920 ifa$<>"1"anda$<>"2"anda$<>"[196]"anda$<>"d"then910
  79. 930 ifa$="d"ora$="[196]"thenk=k+1:goto1260
  80. 940 ifa$="1"thenpoke781,19:poke782,0:syss:printr1$
  81. 950 ifa$="2"thenpoke781,19:poke782,0:syss:printr2$
  82. 960 gosub1220
  83. 970 printchr$(147)
  84. 980 next
  85. 990 :
  86. 1000 rem *** conclusion             ***
  87. 1010 :
  88. 1020 print:print"  [193]s you sleep the shost of the ancient"
  89. 1030 print:print"librariun [196]ui appears in your dream."
  90. 1040 print:print"[200]e says,'[217]ou are on your way to finding"
  91. 1050 print:print"the key to knowledge.  [213]se it wisely and"
  92. 1060 print"the galaxy will be yours.'"
  93. 1070 print:print"  [215]hen you awake, you continue on your"
  94. 1080 print:print"journey.  [217]ou will return often to"
  95. 1090 print:print"[204]ibrarium, for its resources are many."
  96. 1100 poke781,23:poke782,8:syss:print"[208]ress <[210][197][212][213][210][206]> to continue."
  97. 1110 poke198,0:wait198,1:geta$:ifa$=chr$(13)thenprintchr$(147)
  98. 1120 ifa$<>chr$(13)then1100
  99. 1130 poke781,8:poke782,0:syss:print"[217]ou consulted the table of the"
  100. 1140 print"[196]ewey [196]ecimal [211]ystem ";k;" times."
  101. 1150 poke781,15:poke782,0:syss:print"[196]o you want to play again? <y/n) ";:
  102. 1160 poke198,0:wait198,1:geta$
  103. 1170 ifa$="y"ora$="[217]"then800
  104. 1180 ifa$="n"ora$="[206]"then1430
  105. 1210 goto1150
  106. 1220 poke781,23:poke782,5:syss:print"[208]ress <[210][197][212][213][210][206]> to continue.";
  107. 1225 poke198,0:wait198,1:geta$:return
  108. 1230 :
  109. 1240 rem *** dewey decimal system   ***
  110. 1250 :
  111. 1260 printchr$(147):print"----------------------------------------"
  112. 1265 poke781,2:poke782,10:syss:print"[196][197][215][197][217] [196][197][195][201][205][193][204] [211][217][211][212][197][205]"
  113. 1270 print"----------------------------------------"
  114. 1280 print" 000     - [197]ncyclopedias"
  115. 1290 print" 100     - [208]hilosophy"
  116. 1300 print" 200     - [210]eligion"
  117. 1310 print" 300     - [211]ocial [211]ciences, [198]olklore"
  118. 1320 print" 400     - [204]anguage, [196]ictionaries"
  119. 1330 print" 500     - [211]cience, [193]nimals, [208]lants"
  120. 1340 print" 600     - [211]pace travel, [208]ets, [195]ooking,                [200]ealth"
  121. 1350 print" 700     - [205]usic, [193]rt, [211]ports, [199]ames"
  122. 1360 print" 800     - [204]iterature, [208]oetry"
  123. 1370 print" 900-919 - [199]eography"
  124. 1380 print" 920,921 - [194]iography"
  125. 1390 print" 930-999 - [200]istory"
  126. 1400 poke781,20:poke782,7:syss:print"[208]ress <[210][197][212][213][210][206]> to continue.";
  127. 1410 poke198,0:wait198,1:geta$:ifa$=chr$(13)thenprintchr$(147):goto815
  128. 1420 ifa$<>chr$(13)then1400
  129. 1430 goto63000:rem   end *******
  130. 1950 :
  131. 1960 rem *** encounters             ***
  132. 1970 :
  133. 1980 rem *** encounter #1           ***
  134. 1990 :
  135. 2000 poke781,5:poke782,0:syss:print"[212]he planet stretches out before you. [201]t"
  136. 2010 print"would help to have a map to guide you."
  137. 2020 poke781,10:poke782,0:syss:print"[217]ou search in: "
  138. 2030 poke781,12:poke782,0:syss:print"1) 910-919"
  139. 2040 poke781,14:poke782,0:syss:print"2) 300's"
  140. 2060 r1$="[199]ood choice!  [193]n atlas would be found   in 912."
  141. 2070 r2$="[212]he 300's are [211]ocial [211]cience.  [193]n atlas would be found in 912."
  142. 2080 return
  143. 2097 :
  144. 2098 rem *** encounter #2           ***
  145. 2099 :
  146. 2100 poke781,5:poke782,0:syss:print"[217]ou come upon a purple mushroom-shaped"
  147. 2110 print"plant four feet tall.  [217]ou will need to identify it."
  148. 2120 poke781,10:poke782,0:syss:print"[217]ou search in: "
  149. 2130 poke781,12:poke782,0:syss:print"1) 200's"
  150. 2140 poke781,14:poke782,0:syss:print"2) 500's"
  151. 2150 r1$="[212]he 200's are [210]eligion and [205]ythology."
  152. 2160 r2$="[197]xcellent decision!  [193] book on plants   would be in the 580's."
  153. 2170 return
  154. 2197 :
  155. 2198 rem *** encounter #3           ***
  156. 2199 :
  157. 2200 poke781,5:poke782,0:syss:print"[201]n the distance you see a herd of"
  158. 2210 print"strange beasts.  [212]o find out whether to"
  159. 2215 print"approach them you will need to identify their species."
  160. 2220 poke781,10:poke782,0:syss:print"[217]ou search in: "
  161. 2230 poke781,12:poke782,0:syss:print"1) 500's"
  162. 2240 poke781,14:poke782,0:syss:print"2) 700's"
  163. 2250 r1$="[199]ood choice!  [193] book an animals would befound in the 590's."
  164. 2260 r2$="[212]he 700's are [211]ports and the [193]rts."
  165. 2270 return
  166. 2297 :
  167. 2298 rem *** encounter #4           ***
  168. 2299 :
  169. 2300 poke781,5:poke782,0:syss:print"[201]n the ruins of an old building you"
  170. 2310 print"find some scrolls written in [204]ibrarese."
  171. 2315 print"[217]ou will need a [204]ibrarese-[197]nglish       dictionary to translate."
  172. 2320 poke781,10:poke782,0:syss:print"[217]ou search in: "
  173. 2330 poke781,12:poke782,0:syss:print"1) 930-999"
  174. 2340 poke781,14:poke782,0:syss:print"2) 400's"
  175. 2350 r1$="930-999 are books are [200]istory."
  176. 2360 r2$="[212]errific!  [196]ictionaries are found in the400's."
  177. 2370 return
  178. 2397 :
  179. 2398 rem *** encounter #5           ***
  180. 2399 :
  181. 2400 poke781,5:poke782,0:syss:print"[215]hen you translate the scroll you find"
  182. 2410 print"that it is a tall tale about a"
  183. 2415 print"legendary hero.  [212]o read more legends.."
  184.